home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / GFA basic training.adf / Sound / PULSWELLE.LST < prev    next >
File List  |  1989-06-01  |  660b  |  30 lines
  1. ' Pulswelle
  2. @init
  3. @spielen
  4. END
  5. PROCEDURE init
  6.   DIM wert&(255)
  7. RETURN
  8. PROCEDURE spielen
  9.   FOR j%=30 TO 110 STEP 20
  10.     factor%=j%
  11.     @pulswelle
  12.     FOR freq%=300 TO 600 STEP 100
  13.       SOUND freq%,6,255,0
  14.     NEXT freq%
  15.   NEXT j%
  16. RETURN
  17. PROCEDURE pulswelle
  18.   grenze1%=factor%*2            ! Länge des unteren Wellenausschlages
  19.   grenze2%=255-grenze1%         ! Länge des oberen Ausschlages
  20.   '                             ! Beide Wellenausschläge müssen zusammen
  21.   '                             ! 255 ergeben (maximale Länge)
  22.   FOR i%=0 TO grenze1%
  23.     wert&(i%)=-127
  24.   NEXT i%
  25.   FOR i%=grenze1% TO grenze2%
  26.     wert&(i%)=127
  27.   NEXT i%
  28.   WAVE 0,wert&()
  29. RETURN
  30.